%-----
{

save
mark
DoFonts AllFonts and
{
(*% Font Information ===================================================) D
() D
R C (*% Number of internal fonts: ) M C FontDirectory length 8 string cvs M POST
() D

FontDirectory{pop 64 string cvs CatalogRAM}forall

() D
}
if
cleartomark
restore

}
stopped
{(??? 1 -499 \(An error occured during creation of RAM\/ROM font information. \(499\)\)) D quit}
{(??? 1 500 1) D}
ifelse